home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 1
/
SPACE - Library 1 - Volume 1.iso
/
program
/
385
/
prg_3
/
prg_3ap.dsm
next >
Wrap
Text File
|
1985-11-19
|
8KB
|
243 lines
PRG_3AP.TOS Disassembled after execution
085DA8 0008 DC.W 8
085DAA 5DA8000F SUBQ.L #6,$F(A0)
085DAE 8000 OR.B D0,D0
085DB0 0008 DC.W 8
085DB2 5EA80000 ADDQ.L #7,0(A0)
085DB6 00CE DC.W $CE
085DB8 0008 DC.W 8
085DBA 5F760000 SUBQ.W #7,0(A6,D0.W)
085DBE 009A00086010 ORI.L #$86010,(A2)+
085DC4 00000070 ORI.B #$70,D0
085DC8 0008 DC.W 8
085DCA 5E280000 ADDQ.B #7,0(A0)
085DCE 00000000 ORI.B #0,D0
085DD2 00000008 ORI.B #8,D0
085DD6 5D1E SUBQ.B #6,(A6)+
085DD8 FFFF DC.W $FFFF
085DDA FEFD DC.W $FEFD
085DDC 00000004 ORI.B #4,D0
085DE0 00000000 ORI.B #0,D0
085DE4 00000000 ORI.B #0,D0
085DE8 00000204 ORI.B #4,D0
085DEC 0500 BTST D2,D0
085DEE 00030000 ORI.B #0,D3
085DF2 00000000 ORI.B #0,D0
085DF6 00000000 ORI.B #0,D0
085DFA 00000000 ORI.B #0,D0
085DFE 00000000 ORI.B #0,D0
085E02 00000000 ORI.B #0,D0
085E06 00000000 ORI.B #0,D0
085E0A 00000000 ORI.B #0,D0
085E0E 00000000 ORI.B #0,D0
085E12 00000000 ORI.B #0,D0
085E16 00000000 ORI.B #0,D0
085E1A 00000000 ORI.B #0,D0
085E1E 00000000 ORI.B #0,D0
085E22 00000000 ORI.B #0,D0
085E26 00000000 ORI.B #0,D0
085E2A 00000000 ORI.B #0,D0
085E2E 00000000 ORI.B #0,D0
085E32 00000000 ORI.B #0,D0
085E36 00000000 ORI.B #0,D0
085E3A 00000000 ORI.B #0,D0
085E3E 00000000 ORI.B #0,D0
085E42 00000000 ORI.B #0,D0
085E46 00000000 ORI.B #0,D0
085E4A 00000000 ORI.B #0,D0
085E4E 00000000 ORI.B #0,D0
085E52 00000000 ORI.B #0,D0
085E56 00000000 ORI.B #0,D0
085E5A 00000000 ORI.B #0,D0
085E5E 00000000 ORI.B #0,D0
085E62 00000000 ORI.B #0,D0
085E66 00000000 ORI.B #0,D0
085E6A 00000000 ORI.B #0,D0
085E6E 00000000 ORI.B #0,D0
085E72 00000000 ORI.B #0,D0
085E76 00000000 ORI.B #0,D0
085E7A 00000000 ORI.B #0,D0
085E7E 00000000 ORI.B #0,D0
085E82 00000000 ORI.B #0,D0
085E86 00000000 ORI.B #0,D0
085E8A 00000000 ORI.B #0,D0
085E8E 00000000 ORI.B #0,D0
085E92 00000000 ORI.B #0,D0
085E96 00000000 ORI.B #0,D0
085E9A 00000000 ORI.B #0,D0
085E9E 00000000 ORI.B #0,D0
085EA2 00000000 ORI.B #0,D0
085EA6 0000 ORI.B #0,D0
085EA8 2A6F0004 MOVEA.L 4(A7),A5
085EAC 2E2D000C MOVE.L $C(A5),D7
085EB0 DEAD0014 ADD.L $14(A5),D7
085EB4 DEAD001C ADD.L $1C(A5),D7
085EB8 DEBC00000100 ADD.L #$100,D7
085EBE 49FA01C0 LEA $86080(PC),A4
085EC2 99EF0004 SUBA.L 4(A7),A4
085EC6 4FFA01B4 LEA $8607C(PC),A7
085ECA 614C BSR.S $85F18
085ECC 41FA00D4 LEA $85FA2(PC),A0
085ED0 613A BSR.S $85F0C
085ED2 41FA00EE LEA $85FC2(PC),A0
085ED6 6134 BSR.S $85F0C
085ED8 2207 MOVE.L D7,D1
085EDA 614A BSR.S $85F26
085EDC 41FA0132 LEA $86010(PC),A0
085EE0 612A BSR.S $85F0C
085EE2 41FA011E LEA $86002(PC),A0
085EE6 6124 BSR.S $85F0C
085EE8 41FA00F8 LEA $85FE2(PC),A0
085EEC 611E BSR.S $85F0C
085EEE 220C MOVE.L A4,D1
085EF0 6134 BSR.S $85F26
085EF2 41FA011C LEA $86010(PC),A0
085EF6 6114 BSR.S $85F0C
085EF8 41FA0108 LEA $86002(PC),A0
085EFC 610E BSR.S $85F0C
085EFE 3F3C0008 MOVE.W #8,-(A7)
085F02 4E41 TRAP #1
085F04 548F ADDQ.L #2,A7
085F06 3F3C0000 MOVE.W #0,-(A7)
085F0A 4E41 TRAP #1
085F0C 4850 PEA (A0)
085F0E 3F3C0009 MOVE.W #9,-(A7)
085F12 4E41 TRAP #1
085F14 5C8F ADDQ.L #6,A7
085F16 4E75 RTS
085F18 487A00F2 PEA $8600C(PC)
085F1C 3F3C0009 MOVE.W #9,-(A7)
085F20 4E41 TRAP #1
085F22 5C8F ADDQ.L #6,A7
085F24 4E75 RTS
085F26 41FA00E8 LEA $86010(PC),A0
085F2A 43FA004A LEA $85F76(PC),A1
085F2E 2019 MOVE.L (A1)+,D0
085F30 7400 MOVEQ #0,D2
085F32 4A81 TST.L D1
085F34 6732 BEQ.S $85F68
085F36 6A08 BPL.S $85F40
085F38 10FC002D MOVE.B #$2D,(A0)+
085F3C 4481 NEG.L D1
085F3E 6004 BRA.S $85F44
085F40 10FC0020 MOVE.B #$20,(A0)+
085F44 9280 SUB.L D0,D1
085F46 6A06 BPL.S $85F4E
085F48 D280 ADD.L D0,D1
085F4A 2019 MOVE.L (A1)+,D0
085F4C 60F6 BRA.S $85F44
085F4E 5202 ADDQ.B #1,D2
085F50 9280 SUB.L D0,D1
085F52 6AFA BPL.S $85F4E
085F54 06020030 ADDI.B #$30,D2
085F58 10C2 MOVE.B D2,(A0)+
085F5A D280 ADD.L D0,D1
085F5C 74FF MOVEQ #-1,D2
085F5E 2019 MOVE.L (A1)+,D0
085F60 66EC BNE.S $85F4E
085F62 10BC0000 MOVE.B #0,(A0)
085F66 4E75 RTS
085F68 10FC0020 MOVE.B #$20,(A0)+
085F6C 10FC0030 MOVE.B #$30,(A0)+
085F70 10BC0000 MOVE.B #0,(A0)
085F74 4E75 RTS
085F76 3B9A DC.W $3B9A
085F78 CA00 AND.B D0,D5
085F7A 05F5 DC.W $5F5
085F7C E100 ASL.B #8,D0
085F7E 00989680000F ORI.L #$9680000F,(A0)+
085F84 4240 CLR.W D0
085F86 000186A0 ORI.B #-$60,D1
085F8A 00002710 ORI.B #$10,D0
085F8E 000003E8 ORI.B #-$18,D0
085F92 00000064 ORI.B #$64,D0
085F96 0000000A ORI.B #$A,D0
085F9A 00000001 ORI.B #1,D0
085F9E 00000000 ORI.B #0,D0
085FA2 0D0A5052 MOVEP.W $5052(A2),D6
085FA6 475F DC.W $475F
085FA8 33415020 MOVE.W D1,$5020(A1)
085FAC 4578 DC.W $4578
085FAE 6563 BCS.S $86013
085FB0 7574 DC.W $7574
085FB2 696F BVS.S $86023
085FB4 6E20 BGT.S $85FD6
085FB6 5265 ADDQ.W #1,-(A5)
085FB8 7375 DC.W $7375
085FBA 6C74 BGE.S $86030
085FBC 730D DC.W $730D
085FBE 0A0D DC.W $A0D
085FC0 0A002020 EORI.B #$20,D0
085FC4 2050 MOVEA.L (A0),A0
085FC6 726F MOVEQ #$6F,D1
085FC8 6772 BEQ.S $8603C
085FCA 616D BSR.S $86039
085FCC 2053 MOVEA.L (A3),A0
085FCE 697A BVS.S $8604A
085FD0 6520 BCS.S $85FF2
085FD2 6279 BHI.S $8604D
085FD4 204D MOVEA.L A5,A0
085FD6 6574 BCS.S $8604C
085FD8 686F BVC.S $86049
085FDA 6420 BCC.S $85FFC
085FDC 4F6E DC.W $4F6E
085FDE 653A BCS.S $8601A
085FE0 2000 MOVE.L D0,D0
085FE2 2020 MOVE.L -(A0),D0
085FE4 2050 MOVEA.L (A0),A0
085FE6 726F MOVEQ #$6F,D1
085FE8 6772 BEQ.S $8605C
085FEA 616D BSR.S $86059
085FEC 2053 MOVEA.L (A3),A0
085FEE 697A BVS.S $8606A
085FF0 6520 BCS.S $86012
085FF2 6279 BHI.S $8606D
085FF4 204D MOVEA.L A5,A0
085FF6 6574 BCS.S $8606C
085FF8 686F BVC.S $86069
085FFA 6420 BCC.S $8601C
085FFC 5477 DC.W $5477
085FFE 6F3A BLE.S $8603A
086000 2000 MOVE.L D0,D0
086002 2062 MOVEA.L -(A2),A0
086004 7974 DC.W $7974
086006 6573 BCS.S $8607B
086008 2E0D MOVE.L A5,D7
08600A 0A000D0A EORI.B #$A,D0
08600E 00002037 ORI.B #$37,D0
086012 32380000 MOVE.W 0,D1
086016 00000000 ORI.B #0,D0
08601A 00000000 ORI.B #0,D0
08601E 00000000 ORI.B #0,D0
086022 00000000 ORI.B #0,D0
086026 00000000 ORI.B #0,D0
08602A 00000000 ORI.B #0,D0
08602E 00000000 ORI.B #0,D0
086032 00000000 ORI.B #0,D0
086036 00000000 ORI.B #0,D0
08603A 00000000 ORI.B #0,D0
08603E 00000005 ORI.B #5,D0
086042 F0C2 DC.W $F0C2
086044 0310 BTST D1,(A0)
086046 0008 DC.W 8
086048 0005F0C2 ORI.B #-$3E,D5
08604C 0314 BTST D1,(A4)
08604E 0008 DC.W 8
086050 5F0C SUBQ.B #7,A4
086052 00000000 ORI.B #0,D0
086056 FFFF DC.W $FFFF
086058 FFFF DC.W $FFFF
08605A 00000000 ORI.B #0,D0
08605E 00000000 ORI.B #0,D0
086062 00000000 ORI.B #0,D0
086066 00000000 ORI.B #0,D0
08606A 000002D8 ORI.B #-$28,D0
08606E 0008 DC.W 8
086070 607A BRA.S $860EC
086072 0008 DC.W 8
086074 5FA2 SUBQ.L #7,-(A2)
086076 00000000 ORI.B #0,D0
08607A 00000000 ORI.B #0,D0
08607E 00000000 ORI.B #0,D0